home *** CD-ROM | disk | FTP | other *** search
/ Art Works / Art Works.iso / fonts / _fontinst / _run < prev    next >
Encoding:
Text File  |  1996-12-04  |  1.3 KB  |  38 lines
  1. | > !Run
  2.  
  3. |
  4. | Computer Concepts Font Installer
  5. | --------------------------------
  6. |
  7. | (c) 1992 Computer Concepts Limited.
  8. |
  9. | All rights reserved.
  10. |
  11.  
  12. Set FontInst$Dir <Obey$Dir>
  13.  
  14. IconSprites <FontInst$Dir>.!Sprites
  15. |
  16. |  Look for ABI in the !System directory.  If it's not there then try to load
  17. |  it from inside the application...
  18. |
  19. SetEval SysABI 0
  20. RMEnsure ABI 2.72 SetEval SysABI -1
  21. If SysABI Then Run <FontInst$Dir>.FileEnsure System:Modules.ABIMod SysABI
  22. If SysABI Then RMEnsure ABI 2.72 RMLoad System:Modules.ABIMod
  23. If SysABI Then RMEnsure ABI 2.72 Error "The copy of ABIModule in !System is out of date. Please refer to the section 'Updating ABI' in the manual."
  24. RMEnsure ABI 2.72 RMLoad <FontInst$Dir>.Modules.ABIMod
  25. RMEnsure ABI 2.72 Error "The copy of ABI in FontInst is out of date."
  26. Unset SysABI
  27.  
  28. RMEnsure ColourTrans 0.51 RMLoad <FontInst$Dir>.Modules.Colours
  29. RMEnsure StreamSquash 1.01 RMLoad <FontInst$Dir>.Modules.CCSquash
  30. RMEnsure FontInstallSupport 0.02 RMLoad <FontInst$Dir>.Modules.FISupport
  31.  
  32. RMEnsure FontManager 2.44 RMLoad <Obey$Dir>.NewFontDir.Fonts
  33. RMEnsure SuperSample 0.06 RMLoad <Obey$Dir>.NewFontDir.Super
  34.  
  35. WimpSlot -Min 64K
  36. If "<Wimp$Scrap>"="" Then Set Wimp$Scrap <FontInst$Dir>.ScrapFile
  37. %Run <FontInst$Dir>.NewFontDir.FInstall <FontInst$Dir>.FIFonts.
  38. Run <FontInst$Dir>.!RunImage